(*~\Глагол\Отделы\Обмен~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                        ОТДЕЛ Справка;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: работа в Оболочке с ".CHM" справочником средствами ОС
 * ПРИМЕЧАНИЯ: вызов ОС происходит через Spravka.DLL
 *============================================================================*)
ИСПОЛЬЗУЕТ
  Цепь ИЗ "..\Иное\";
ПЕР
  (* полное имя файла .CHM справочника *)
  имяФ:ЦЕПЬ[300];

ЗАДАЧА Kluch(имяФ-,ключ-:ЦЕПЬ);      ВЫЗОВ "Kluch"  ИЗ "Spravka.dll";
ЗАДАЧА Nomer(имяФ-:ЦЕПЬ; номер:ЦЕЛ); ВЫЗОВ "Nomer"  ИЗ "Spravka.dll";
ЗАДАЧА Razdel(имяФРаздел-:ЦЕПЬ);     ВЫЗОВ "Razdel" ИЗ "Spravka.dll";

(******************************************************************************)
ЗАДАЧА Ключ-(ключ-:ЦЕПЬ);
(* Цель:  поиск разделов по ключевому слову *)
УКАЗ
  Kluch(имяФ,ключ)
КОН Ключ;

(******************************************************************************)
ЗАДАЧА Номер-(номер:ЦЕЛ);
(* Цель:  поиск раздела по его номеру *)
УКАЗ
  Nomer(имяФ,номер)
КОН Номер;

(******************************************************************************)
ЗАДАЧА Раздел-(раздел-:ЦЕПЬ);
(* Цель:  поиск раздела по его .htm имени *)
ПЕР
  имяФРаздел:ЦЕПЬ[300]; (* полное имя файла в .CHM справочнике *)
УКАЗ
  СПИСАТЬ(имяФ,имяФРаздел);
  Цепь.Добавить(имяФРаздел,"::/");
  Цепь.Добавить(имяФРаздел,раздел);
  (* имяФРаздел = "c:\\Справка.chm::/Введение.htm>okno" *)
  Razdel(имяФРаздел)
КОН Раздел;

(******************************************************************************)
ЗАДАЧА Подготовить-(имяФ-:ЦЕПЬ);
(* Цель:  подготовить вызовы внешних задач
 * До:    <имяФ> - полное имя файла .CHM справочника *)
УКАЗ
  СПИСАТЬ(имяФ,Справка.имяФ)
КОН Подготовить;

КОН Справка.